home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / delete.lha / DeleteColors.rexx < prev   
OS/2 REXX Batch file  |  1998-06-13  |  2KB  |  62 lines
  1. /*----------------------------------------*/
  2. /* $VER: DeleteColors V1.01 (13 Jun 1998) */
  3. /* ©1996-98 Michael Merkel                */
  4. /*----------------------------------------*/
  5.  
  6. OPTIONS RESULTS
  7.  
  8. /* Make sure rexx support is opened */
  9. IF ~SHOW('L','rexxsupport.library') THEN
  10.    CALL ADDLIB('rexxsupport.library',0,-30)
  11. IF ~SHOW('L','softlogik:libs/slarexxsupport.library') THEN
  12.    CALL ADDLIB('softlogik:libs/slarexxsupport.library',0,-30)
  13. ADDRESS 'PAGESTREAM'
  14.  
  15. colfrom = 1
  16. colto   = 100
  17. colname = 'Black'
  18.  
  19. call DOREQUESTER
  20. if ergebnis = cancelhandler THEN EXIT
  21.  
  22. /* ---------------------------------------------------------------- */
  23.  
  24. OPTIONS FAILAT 11
  25. do num = colfrom to colto
  26.     colstr = colname || '.' || num
  27.     'DELETESTYLETAG STYLETAG "'colstr'"'
  28. end
  29. OPTIONS FAILAT 10
  30.  
  31. EXIT
  32.  
  33. DOREQUESTER:
  34.     'ALLOCAREXXREQUESTER "DeleteColors - ©1996-98 Michael Merkel" 320 130'
  35.      reqhandle = RESULT
  36.     'ADDAREXXGADGET 'reqhandle' EXIT 10  110 70 LABEL "_Ok"'
  37.      okhandler = RESULT
  38.     'ADDAREXXGADGET 'reqhandle' EXIT 240 110 70 LABEL "_Cancel"'
  39.      cancelhandler = RESULT
  40.  
  41.     'ADDAREXXGADGET 'reqhandle' STRING 170 10 100 STRING "'colname'" LABEL "delete which color:"'
  42.      colname_gadget = RESULT
  43.     'ADDAREXXGADGET 'reqhandle' STRING 170 30 50  STRING "'colfrom'" LABEL "delete from:"'
  44.      colfrom_gadget = RESULT
  45.     'ADDAREXXGADGET 'reqhandle' STRING 170 50 50  STRING "'colto'"   LABEL "         to:"'
  46.      colto_gadget = RESULT
  47.     'ADDAREXXGADGET 'reqhandle' TEXT 10 70 300 STRING "these settings will delete all black"'
  48.     'ADDAREXXGADGET 'reqhandle' TEXT 10 85 300 STRING "colors from Black.1 to Black.100"'
  49.  
  50.     'DOAREXXREQUESTER 'reqhandle
  51.      ergebnis = RESULT
  52.  
  53.     'GETAREXXGADGET 'reqhandle' 'colname_gadget' STRING'
  54.      colname = RESULT
  55.     'GETAREXXGADGET 'reqhandle' 'colfrom_gadget' STRING'
  56.      colfrom = RESULT
  57.     'GETAREXXGADGET 'reqhandle' 'colto_gadget' STRING'
  58.      colto = RESULT
  59.  
  60.     'FREEAREXXREQUESTER 'reqhandle
  61. RETURN
  62.